install.packages("jiebaR")
install.packages("wordcloud")
library("jiebaR")
library("wordcloud")
f<-scan('snx.txt',sep="\n",what="")
txt<-qseg[f]
txt<-txt[nchar(txt)>1]
txt<-table(txt)
txt<-txt[!grepl('[0-9]+',names(txt))]
length(txt)
txt<-sort(txt,decreasing=TRUE)[1:100]
bmp("mycloud1.bmp",width=500,height=500)
par(bg="black")
wordcloud(names(txt),txt,colors=rainbow(100),random.order=F)
dev.off()
